BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/C-Cl/CCE.cpt/CCE 1.0/stack.txt

Text File | 1987-10-29 | 5.6 KB | 202 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2573
-- card count: 1
-- first card id: 3165
-- list block id: 3759
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 21504 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openstack
  set userlevel to 1
  set userlevel to 5
  hide menubar
  type tab
end openstack

on noise
  play harpsichord "ee c"
end noise

--
-- ** DANGER **
-- If you move the location of the fields then the below routines
-- will not work. They use the location to calculate what field is
-- being used.
--
on Runner
  put -3 + ((item 2 of the clickloc)-0)div 17 into it
  put it into target
  if bkgnd field id target is empty then
    ask "What is the Name of this Runner (Last, First)?"
    if it is not empty then
      put it into bkgnd field id target
    end if
  else
    answer "Remove " & bkgnd field id target & " ?" with "Yes Remove" or "No Cancel"
    if it is "Yes Remove" then
      put empty into bkgnd field id target
    end if
  end if
  noise
end Runner
--
on Grade
  put -3 + ((item 2 of the clickloc)-0)div 17 into it
  put it into target
  ask "What Grade Level is " & background field id target
  if it is not empty then
    put target+9 into target2
    put it into bkgnd field id target2
  end if
end Grade
--
on place
  put -3 + ((item 2 of the clickloc)-0)div 17 into it
  put it into target
  ask "What Place did " & background field id target & " Run ?"
  if it is not Empty then
    put target+18 into target2
    put it into bkgnd field id target2
  end if
  noise
end place
--
on time
  put -3 + ((item 2 of the clickloc)-0)div 17 into it
  put it into target
  ask "What was the time for  " & background field id target & " ?"
  if it is not empty then
    put target+27 into target2
    put it into bkgnd field id target2
  end if
  noise
end time
--
on previous
  put -3 + ((item 2 of the clickloc)-0)div 17 into it
  put it into target
  ask "What was the Previous time for  " & background field id target & " ?"
  if it is not empty then
    put target+59 into target2
    put it into bkgnd field id target2
  end if
  noise
end previous
--
on Sort
  -- sort by place --
  set cursor to 4
  repeat with x1 = 1 to 8
    put x1+18 into y1
    repeat with x2 = x1 to 9
      put x2+18 into y2
      put bkgnd field id y1 into ck1
      put bkgnd field id y2 into ck2
      --
      if ck1 <1 then put 9999 into ck1
      if ck2 <1 then put 9999 into ck2
      --
      if ck2 < ck1 then -- swap ck2 with ck1 (fields y2 & y1)
        --
        if ck2 = 9999 then
          put empty into bkgnd field id y1
        else
          put ck2 into bkgnd field id y1
        end if
        --
        if ck1 = 9999 then
          put empty into bKgnd field id y2
        else
          put ck1 into bkgnd field id y2
        end if
        -- swap the rest
        put bkgnd field id x1 into xtemp
        put bkgnd field id x2 into bkgnd field id x1
        put xtemp into bkgnd field id x2
        put x1+9 into x3
        put x2+9 into x4
        put bkgnd field id x3 into xtemp
        put bkgnd field id x4 into bkgnd field id x3
        put xtemp into bkgnd field id x4
        put x1+27 into x3
        put x2+27 into x4
        put bkgnd field id x3 into xtemp
        put bkgnd field id x4 into bkgnd field id x3
        put xtemp into bkgnd field id x4
        put x1+59 into x3
        put x2+59 into x4
        put bkgnd field id x3 into xtemp
        put bkgnd field id x4 into bkgnd field id x3
        put xtemp into bkgnd field id x4
        put x1+47 into x3
        put x2+47 into x4
        put bkgnd field id x3 into xtemp
        put bkgnd field id x4 into bkgnd field id x3
        put xtemp into bkgnd field id x4
      end if
    end repeat
  end repeat
  set cursor to 0
end Sort